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x.25 Access Module Parsin 16-Sep-1984 00:50:5 AX-11 Bliss-32 V4.0-74 Page 1) 
° 12-08-38 90: 28535 NCP. SRCINCPSTAMAC.B32; . (1) 
ay ] QXTITLE '4.25 Access Module Parsing! | 
; g 0 MODULE NCPSTAMAC (IDENT = 'V04-000" .LIST(NOOBJECT)) = | : 
i ey, Boge! 
: § ! i eeuneneeneneceeeceeeeneneeenerteeereterertenerentnntnentensnncenernneneets | ; 
Py .* % Ps 
; g 008 1 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY x : 
; 9 1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. > | : 
; 10 0010 1 is ALL RIGHTS RESERVED e | : 
: M ® . 
; i ig 1 ie THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | : 
as 13. 1 i ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE ®* : 
oe 014 1 '* INCLUSION OF ona ABOVE COPYRIGHT NOTICE. THIS SOFTWARE on” ANY OTHER * : 
> 615 0015 1 '* COPIES THEREOF may NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 16 9016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ‘ 
; 4 01 is TRANSFERRED. . : 
Py :* 2 
; #19 $O19 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 0 0020 1 i SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 1 99 1 1 ie CORPORATION. * 
HY ‘® te 
: ‘ 00 : 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; ‘ 90 $ te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. « 
b & 
> 1 ie > 
4 7 0037 1 VSR e REA ERA RARAAAATAAAAAERAEREAEEE EATER AEEEAEAeeAee eee | 
3 8 0 1! 
: §5 0099 1 
: 0 0030 1 !+4 | 
3 1 BB 1 : FACILITY: Network Control Program (NCP) 
; 5 00 5 ABSTRACT: 
Pes Se 0035 1 i States and data for the parsing of NCP SET / CLEAR X.25-ACCESS 
; $ 4 $ : module parameters. 
; : 0038 : ENVIRONMENT: VAX/VMS Operating System 
: 40 0040 1 | AUTHOR: Paul R. DeStefano, February 1984 
+ 41 0041 1! 
: 4@ 0048 1 | MODIFIED BY: 
3 4 04 4 
ix: an 044 1: V03-001 PRD0086 Paul R. DeStefano 26-Mar-1984 
3s 6465 045 1! Corrected parameter type for NODE. 
; 6 Bpe$ 1 i 
7 047 1 i- 
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ZSBTTL ‘Definitions’ 
! 


INCLUDE FILES: 


Be Se Se Oe Ge Ge Ge Oe Ge Se Se ee Se Ge Se Oe Se Se Se Oe Oe Oe Se Oe Oe e 
~N o ao 
YSSELSSPLLASSELELFNIES 


LIBRARY 'LIBS$:NMALIBRY'; 
LIBRARY "LIB$:NCPLIBRY' 
LIBRARY ‘SYSSLIBRARY: TTPAMAC': 


EXTERNAL REFERENCES: 


ee a at a sa — 4 = 4 — — 2 a so ss 


; ACT_DFN ! Action routine externals 
: EXTERNAL 
é NCPSGL_QUALPRS; ! Qualifier was present on command Line 
66 OWN STORAGE: 
tle : 
ar 
7 1 ' LITERALS 
fi ie 
75 S074 LIT 
76 0075 


ERAL 
QUALPRESENT = 1; ' Qualifier was present on command Line 
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"Set Parameter blocks’ 


SET X25-ACCESS Parameter Blocks 


BUILD_PCL 

(MAC, 

NET, TKN, PCXA_NET, , 
ACC, TKN PCKA_ACC, , 
NOD, NADR, PCXA-NOD, . 
PSW, TKN, PCXA_PSW, , 
USR, TKN, PCXA_USR, , 
o END, oO e 

) 

BUILD_PBK 

(MAC, 

NET, TKN 


KNT. L1TB, NMASC_ENT_KNO, MAC_NET, 
NO e 


PDBSG_MAC_ENT = 
UPLIT"BYTE(O, ZASCIC 'X25-ACCESS"); 


BUILD_SDB 
(MAC, NMASC_ENT_MOD, MAC_ENT, MAC) 


pa19Be 19:48:39 


! Module X25-ACCESS 


! Module X25-ACCESS 


! KNOWN NETWORKS 


' Access entity name 


oo 
werstaac > Access Module Parsing 18-5¢ =3000 138% 99: rt 35 AX-11 Bliss-32 V4.0-74 Page 4 
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Clear Parameter blocks 14-Sep-1 NCP. SRCINCPSTAMAC .B32; (4) 
5 } iY } ZSBTTL ‘Clear Parameter blocks’ : 
: 4 119 1! : 
; 1 § 1 1! CLEAR X25-ACCESS Parameter Blocks . 
2 cee : 
: § p § BUILD_PCL 3 
; 128 Boies (CAC, ! Module X25-ACCESS ; 
; 130 p 137 NET, TKN, PCXA_NET, , ; 
: 1 ; P 01 g 1 ACC, LITB, PCXA_ACC, , 
7 P0130 1 NOD, LITB, PCXA-NOD, . 
| P0131 1 PSW, LITB. PCKA-PSW, , 
; 5 p 5 USR, LITB. PCXA-USR, , 
:% P 01 1 6 Oi és 
. | P0135 1 
Base | Be 
; 141 p : BUILD_PBK 
: 148 p 140 (CAC, ! Module X25-ACCESS 
: 145 P 149 ALL, LITB, 0, VRB_ALL, 
: 167 P0144 1 NET, TKN, , , 
; 148 Pp O14 1 KNT, LITB, NMASC_ENT_KNO, CAC_NET, ' KNOWN NETWORKS 
> 149 P 9146 1 ACC, LITB. , . 
: 150 P0147 1 NOD, L118... 
: 151 P0148 1 PSW, LITB. . - 
: 138 P 0149 1 USR, LIT8. . . 
oe P0150 1 
3 6154 151 1 ) 
oto 
; 139 e 134 BUILD_SDB 
: 159 156 1 (CAC, NMASC_ENT_MOD, MAC_ENT, CAC) 
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‘Prompt strings’ 


Build prompt strings 


PROMPT_STRINGS 

(MAC, 

DAT, *° (NETWORK wftes or KNOWN NETWORKS): ° 

NET, ° WORK (1-16 characters): ' 

ACC, "Account (1-39 characters): 
NOD, "Node name (1-6 characters): 
PSW, ‘Password (1-39 characters): 
USR, ‘User (1-39 characters): 
), 

PROMPT_STRINGS 

(CAC, 


DAT, * (NETWORK ene or KNOWN NETWORKS): 
NET, * TWORK (1-16 characters): 


ALL, TALL X.25 access parameters 


ACC, ‘Account 
NOD, "Node 
PSW, ‘Password 
USR, ‘User 

); 
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Declare entry points to TRARSE tables HE$SSc1984 99:80:58 YAUGYLAPLMasc a3 


ZSBTTL ‘Declare entry points to TPARSE tables’ 
' 


Declare entry points to this TPARSE table 


SINIT_STATE (NCPSG_STTBL_MAC, NCPSG_KYTBL_MAC); 


FORWARD 
ST_CAC: VECTOR (0); ! Clear X25-Access 


GLOBAL BIND 
NCP$G_STTBL_CAC = ST_C 
NCP$G_KYTBL_CAC = RCPSC° KYTBL MAC; 


4 Peer 6s 


wef 


Prompt for access parameters 
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NCPSTAMAC .25 Access Module Parsin tbse -1984 00:50: AX-11 Bliss-32 V4.0-74 Pa 7 
042000 EF nae Rete ee Hale Bie eaeters eet Pak od Bs TMT ML ST ae CPE 9 67) 
1} } ZSBTTL ‘SET X25-ACCESS Module Parameters’ 
1§ ; 
13 ; SET/DEFINE MODULE X25-ACCESS parameter states 
1 1 ‘ 
7 p i — (IPRS £6S $T_MAC_PMT_DAT) 
15 P Oe (TPAS LAMBDA, “ST _RAC_DAT) y 
1 1 , 
P 021 SSTATE (ST_MAC_PMT_DAT 
§ | (TPAS_LAMBDA,, ACTSPRMPT,,, PMT$G_MAC_DAT)); 
5 1 
$ P SSTATE (ST_MAC_DAT, ! Determine if KNOWN specified 
Pp C'NETWORK', ST_MAC_DAT_NET), 
8 Pp (KNOWN . ST=MAC_DAT_KWN), 
5 
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P SSTATE (ST_MAC_DAT_NET, 
(TPAS_LAMBDA)) ; 
COMMAND_PROMPT 
Zz ; (MAC, NET, NCPS_INVKEY, 
41 ((SE_NET_NAME),, ACTSSAVPRM, QUALPRESENT, NCPSGL_QUALPRS, PBK$G_MAC_NET)); 
4 P SSTATE (ST_MAC_PMT_NET, 
4 P (TPAS_EOS) 
45 ; (TPASLAMBDA,ST_MAC_PRC)); 
4? P 024 PROMPT STATES 
49 P 024 ACC, NOD, PSW, USR 
39 d , 
38 P0246 1 SSTATE (ST MAC DOIT, 
33 P 024 i KS_LAMBDA, TPAS_EXIT, ACTSVRB_UTILITY, , . SDB$G_MAC), 
i Bie os 
$7 32 Dispatch on KNOWN keyword during prompting 
59 5 ‘ 
60 P 0254 1 SSTATE (ST_MAC_DAT_KWN 
61 P 0255 (TPRS_EOS, ST_MAC_PMT_NET, ACTSSAVPRM,,, PBK$G_MAC_KNT) 
6¢ P 36 C*NETOORKS*, ST_MAC_PAT_NET, ACTSSAVPRM.,, PBKSG_MAC_KNT), 
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P 1 
P 1 
P 0265 1 
P 1 
p Osos 
P0888 
P0270 1 
P 0271 1 
P Ogre | 
P 0273 1 
P 0274 1 
P0275 1 
P 0276 1 
0277 1 


Dispatch States 


SSTATE (ST_MAC_PRC, 


((SE_ALL), ST_MAC_DOIT), 
DISPATCH_STATES 
(MAC, 


ACC, ‘ACCOUNT, 
NOD, ' 

PSW. "PASSWORD', 
USR. "USER' 


) 
s(TPAS_EOS, ST_MAC_DOIT) 
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Dispatch on KNOWN keyword 
(ST_MAC_PRC_KWN 
((SE_MAC_KWA), ST_MAC_PRC)); 
(SE_MAC_KWN, 

KEYWORD_STATE 

(MAC, 


KNT, “NETWORKS', 
dds 
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Process states - call subexpressions to store value 


PROCESS_STATES 
(MAC, 
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W 
S$ 
1 09 1 
9 37 
; } ! Sub_expressions 
13° 1 
4 P0314 1 SUB_EXPRESSIONS 
5 P0315 1 (MAT, 
8 p 18 1 
P0317 1 ACC, (SE_ACC_ACC) 
8 Pp 8 18 «1 NOD, (SE"-NODE_ID) 
+] P0319 1 PSW, (SE-ACC_PSw) 
f th 0 1 USR, (SE_ACC_USR), 
1 5 es 
2 0322 1 ) 
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oO 
mr 
mu 


fre 


SBTTL 
' 
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SSTATE 


SESE 8 
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CLEAR/PURGE MODULE X25-ACCESS parameter states 


(ST xfht 
(TPRS_EOS, ST_CAC_PMT DAT), 
(TPAS_ “LAMBDA, ~ST_CAC_BAT 


(ST_CAC_PMT_DAT, 

(TPAS_LAMBDA,, ACTSPRMPT,,, PMT$G_CAC_DAT)); 

(ST_CAC_DAT, ! Determine if KNOWN specified 
('NETWORK', ST_CAC_DAT_NET), 

mand ST~CAC_DAT_KWN), 


Prompt for access parameters 


ST_CAC_DAT_NET, 
TPAS_LAMBDA)); 


( 
( 
COMMAND_PROMPT 

(CAC, RET NCP$_INVKEY, 

((SE_NET_NAME),, ACTSSAVPRM, QUALPRESENT, NCPS$GL_QUALPRS, PBK$G_CAC_NET)); 


(ST_CAC S)- NET, 


(TPRS_ 
(TPASLAMBDA,ST_CAC_PRC)); 
QUERY_STATES 

ALL, ACC, PSW, USR) 
(ST_CAC_DOIT 


(TPAS LAMBDA, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_CAC), 


Dispatch on KNOWN keyword during prompting 


AC_D 
EOS, Te weAC PMT_NET, ACTSSAVPRM,,, PBK$G_CAC_KNT) 
Rr ohurge® ST_CAC_PAT_NET, ACTSSAVPRM.,, PBKSG_CAC_KNT), 


<z 


; ) 
voas000" CEA Ese hc Cee S celS Bo ameters 1$-sen-1 84 90:78 ee eae MEBstamc ogee Page 443 
33 ; 
i Dispatch States 
; P SSTATE (ST_CAC_PRC, 
98 P DISPATCH_STATES 
P (CAC, 
400 P 
pmoxtt 
; 208 P PSW. "PASSWORD', 
404 P USR, "USER', 
405 P ) 
406 P (TPAS_EOS, ST_CAC_DOIT) 
407 j; 


| 
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§T_CAC_PRC)); 


_KWA), 
_STATE 
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(ST_CAC_PRC_KWN 
KNT, ‘NETWORKS’, 


»); 


E_CA 
KEYWORD 


((S 
(CAC, 


SSTATE 
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i ae 
3 : 1g : ; Process states - call subexpressions to store parameter ID's 
; ¢ ; b 18 i PROCESS_STATES 
> & P0419 1 (CAC, 

4 P 0 1 

435 P ie ALL, . 

4 p 1 ACC, 

4 P 1 PSW, 

4 P 4 1 USR, 

4 P 0425 1 

440 » s ) 
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Sub_expressions 
SUB_EXPRESSIONS 
(cat, 


ALL, TPAS_EOS, 


ACC, TPAS eon 
PSW, TPAS_ LAMBDA, 
‘- TPAS_ LAMBDA; 
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; 38 i } ZSBTTL ‘Define Subexpressions' 

: 4 431! 

3 cst te : } Define Subexpressions from Library 

i 468 4g 1 

; 46 47 1 SEM AALL ' A poreneser 

; 464 ‘8 1 SEM_N E ' x etwork name 

; 465 449 1 SEM_ACCESS ' x25 Access Account, Password, User 
3 reg “9 1 SEM_NODE_ID ! Nodename, Node | 

; 46 451 1 SEM_QUOT STR ! Quoted string 

: 468 52 1 SEM_QUERY ! Query state subexpressions 
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